home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
tjockdem.arc
/
DEMO4.ARC
/
LISTDEM2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-02-03
|
1KB
|
62 lines
Program ListTTT5_Demo_2;
{ This an example is extension of the program listdem1.pas. In this
example, the look and feel of the list have been modified by changing
the LTTT variable.
}
Uses CRT, DOS, FastTTT5, WinTTT5, ListTTT5;
const
ListWidth = 60;
type
StrList = string[ListWidth];
var
MyList : array[1..30] of StrList;
Procedure Fill_MyList;
{}
begin
MyList[1] := 'Erica';
MyList[2] := 'Alison';
MyList[3] := 'Barbara';
MyList[4] := 'Sarah';
MyList[5] := 'Katy';
MyList[6] := 'Janice';
MyList[7] := 'Susan';
MyList[8] := 'Serita';
MyList[9] := 'Anne';
MyList[10] := 'Michelle';
MyList[11] := 'Theresa';
MyList[12] := 'Shirley';
MyList[13] := 'Sue';
MyList[14] := 'Marianne';
MyList[15] := 'Wilma';
MyList[16] := 'Beatrice';
MyList[17] := 'Regina';
MyList[18] := 'Sudofed';
MyList[19] := 'Trojan';
MyList[20] := 'Whip';
end; {of proc Fill_MyList}
begin
Fill_MyList;
ClrScr;
with LTTT do
begin
Lines := 15;
Y := 2;
LeftChar := chr(026);
RightChar := ' ';
AllowToggle := false;
end;
Show_List(MyList,ListWidth,20);
ClearText(1,1,80,25,white,black);
WriteAT(1,1,white,black,'Run DemoTTT.exe for the main demo program');
WriteAT(1,2,white,black,'TechnoJock''s Turbo Toolkit v5.0');
GotoXY(1,5);
end.